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TITLE TSKri2<: 

bhiAl^L i C 

DWABL <r:BL 

CSECT TSKH2(: 



"!)){> Rl'N t: o mm a nil 



TSKH2(:: 



; TSKM2C is the portion of TSKHON that cojitains the code 
i to implement the RUN Lootmand. 



i Copyright 1906. 

; Nai;;.hvi lie., "i ennes Be<: 



*• A .^y 1 A f] / i /T> r 1 t t "K i::i -r^ ^ > 1 1 r- -1- !> *-n r i 1 ■ / 



j Mat TO calls 

, MCALL . LOOKUP.. 
.; 1 u fa a 1 d e f i ri i t i o n a 



RLADW> 



QL OBL CMDRSY, CMDRUN, DORUN. RUNNAM, PLOAD, KDOCIN 



1 o b a 1 references 



000000 000000 



RUNOP 



GLOBL 
GLOBL 
GLOBL 
OLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 

WORD 



CMDOFF. NOPRG> FPRINT, SYNAME, INDSAV, NOIND 

*DEBUG, *HnTY.- lilNDRN, *NOINT, POIiDBG 

fNOWTf, *PHGLK.. *RNIOP, $RNMLK, *TRNSP, *UCLRN 

AF*BYA. AF*CC:A, AF*DBG, AF*DUP, AF*HIE, TRMSTR 

AF^IND, AF^lOP, AF*MEM, AF^NO.T , AF*NOW, LSW4 

AF*PLK, AF^SCA, AF*SET, AF$TPO, AF*UCL, TRMSTR 

*CFOPN, CFBUF> CFSQEZ, PUSHCF, ACRFN, TODLNG 

II*FLG, 11*NPV, II*PRV>*QUieT 

DKSAV, SYBAV, CORUSR, EM*NPD, AF*NPWFILNAM 

VDBFLG, CINDAT.. LOGASN, HiSTSNG, LSW6 

RUNARG.. RUNCHM, RUNFLG> RUNDEV, INSSRC, PVNPW 

RUNHD, RUNEMT, JS*RUW. IIBUF 

LSW7, LITIME, PO$MEM. LSW2, LSW2S 

PRIVCO, EM^MPV, EM*NAL, PO*LDK 

CCSPRV, ABRTCF.. PO*DBG, EM*NAD 

*NOWIN> LSWl 1> *DUPRN. IN*ACT> INDSTA 

IN«CNTi 1NDACT> UCLBLK, EM*MUC 

*SETRN, L3W9, RDERM, CINFLG, CVTTAB 

RSTPRV, L-JSW, NEWJSW, R50VIR, VIMAGE, MAXMEM 

ODTBAS, VSWPFLMXJADR, PRGSIZ, PRGTOP 

USRSTK, NOSTRT, USTART, LPRGl, LPRG2, LMONHD 

SMONHD. GENMON, OVRCOR, BADSAV> LDNAM, LDCLEN 

NOCIN, SKPSPC> SEARCH, INVOPT, FKILL 

XAREA, F.ILNAM, LSMS, tiSCCA, BLKO, BLKWDS 

LSW3, *CHACT, RDCMD, ilX-JADR, FIXPRV, AFCF 



u 



AF$XJ!X flags from RUN switches 
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Macro to cause a fatal error messaqe to be printed. 

. MACRO F-ERR MBO 

MDV R5, --<b-P> 

MOV MSG, R5 

CALL FPRINT 

MOV (SP)+, Rb 

. ENDM FERR 



Macro to print a fatal error messaqe, clean up 
and tfien jump to RDC^MU. 



. MACRO FABDRT 

MOV MSG. R5 

^)MP i-KILL 

. ENDM FABDRT 



MGC 



Macro to print a warning message 

. MACRO FWARN MSC-i 

MOV R5, -<SP) 

MOV MSG, R5 

CALL PRTWRN 

MOV <SP)+, Kb 

, EMDM FWARN 



Macro to start a standard option table. 

Mame =- 1 to 4 character table name. 

NA = Number of arguments per table entry. 

. MACRO TBLDEF NAME, NA 

NARGS ^- NA 

. CSECT CMDV2C 

NAME 'HD: .WORD 2«NA 

. ENDM TBLDEF 



Macro to enter an option te^ft name and a set of parameters 

into the currently open table. 

STRNG ~ Ascii name 

A, B, C =• Set of option parameters to store in table with name. 

. MACRO CMDDEF BTRNG, A, B, C 
. CSECT NAME2C 



i POINTER TO NAME STRING 





. ASCIZ 


/STRNG/ 








. CSECT 


CMDV2C 








. WORD 


L 




f 




. WORD 


A 






IIF 


GE, <NARGS~2> 


. WORD 


B 


IIF 


GE, <NARGS~3.> 


WfiRD 


C 




. ENDM 


CMDDEF 
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58 
59 
60 
61 
62 
63 
64 
65 



> Macro to end a set o '■ toble entries. 

i 

. MACRO TBLENJ) 

. CSECT CMDVOC: 

. WORD 

. CSECT TSKM2C 

. ENDM TBLENl) 



4 



TSKH2C Ths RUN 

Ta bles of co mma n d : 



a n d ( ,i p t i o n ■ 
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.1 

P 
3 
4 
5 



a 

9 
10 

1 i 

13 
14 
15 
16 
17 
IS 



SBTTL Table!5 of commands and options 



000002 
000002 
000006 
000012 
000016 
000022 
000026 
000032 
000036 
000042 
000046 
000052 
0000S6 
000062 



Define option suiitches for the RUN command 

TBL.DEF f?UN. 1 

CHDDEF B#YPASN. RNHYA 

CMDDEF D-<{EBUO, RHDh 

CMDDEF H* I GH, RNH! i J 

CMDDEF I -a-OP AGE , R WS I DP 

CMDDEF L*OCK, RNSLK 

CMDDEF M-«-EMLOCK; f?MSMi H. 

CMDDEF NQN I INTERACT I VF. RNSNO.I 

CMDDEF NOW-H-INDOWINQ, RNNPW 

CMDDEF 0-x-DT, RNDH 

CMDDEF S*INGLECMAR, RNSCHR 

CMDDEF SC-«-CA, RNIiCCA 

CMDDEF T-K-RANSPARENT, RMSTPO 

TBLEMD 



c 

€ 
i 



TSKM2C — ■ The RUN command 
RUN cominiVind 



3 








4 








6 








7 


000002 


012705 


0000000 


a 


000006 


000402 




V 
10 
1 1 








12 


000010 


012705 


0000000 


13 








1 4 








Ifi 








16 


000014 


004767 


0000000 


17 


000020 


005067 


177754 


18 








19 








20 








21 


000024 


004767 


OOOOOOG 


22 


000030 


1 2 1 327 


000057 


23 


000034 


001100 




24 


000036 


005203 




25 


000040 


012704 


000000 ' 


26 


000044 


00^-767 


0000000 


27 


000050 


lOSOO-''! 




28 


0000 5r2 






29 


000062 


116701 


OOOOOOG 


30 


000066 


000134 




31 








32 








33 








34 


000070 


052767 


OOOOOOG 


35 


000076 


000752 




36 








37 








38 








39 


000100 


052767 


OOOOOOG 


40 


000 IOd 


000746 




41 








42 








43 








44 


000110 


052767 


OOOOOOC 


45 


0001 16 


000742 




46 








47 








48 








49 


000120 


oBp'?;-, y 


OOOOOOG 


50 

•■1 1 


000126 


000736 




52 








53 








54 


ODD 130 


052767 


OOOOOOG 


55 


000136 


000732 




56 








57 
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. SB TTL R UN c uinmn ml 

PrcH. ('SB the 'N' (RliN) conimano. 

Entry tjoint for 'FUiN' c ti/iifihTOid 



CMDRUN: MOV 

BR 



#DKBAV, R5 
HUNPRB 



> SET DEFAULT DEV AND EXT 



1 

c 

I 

I 



J Entry point for 'R' rommand 
CMDRSY: MOV #SYSAV, R5 

B e c) :i. 1 1 B t: a n n i n q c o nma n d i i n c 



RUNPRS; CALL 
CLR 



CVTTAB 
RUNOPS 



i SET DEFAULT DEV AND EXT 



J CONVERT TABS TO SPACES IN COMMAND LINE 

; Clear option flag word 



Bee if any switches were specified with run command 



Skip over any spaces 

ANY SWITCH? 

BR IF NOT 

POINT PAST SLASH 

POINT TO RUN SWITCH TABLE 

ACCRUE AND LOOKUP SWITCH 

BR IF SWITCH OK 

BAD SWITCH 

PUT JOB INDEX NUMBER IN Rl 

ENTER SWITCH PROCESSING ROUTINE 



RUNSW: 


CALL 


SKPSPC 




CMPB 


(R3), ^if'/ 




BHE 


RUNNAM 




INC 


R3 




MOV 


#RUNHD> R4 




CALL 


SEARCH 




BCC 


1* 




FAB OR T 


#INVDPT 


1$: 


MOVB 


C0RUSR,R1 




^JMP 


@(R4)+ 



Process the /LOCK switch 



177702 RNSLK: BIS 

BR 



#AF*PLK. RUNOPS ; Remember to lock program to line 
RUNSW >G0 CHECK FOR OTHER SWITCHES 



Process the /NEMLOCK switch 



177672 RNSMLK: BIS 

BR 



#AF$riEM. RUNOPS ; Remember to lock program in memory 
RUNSW i Go check for more switches 



f 
I 
« 

€ 

i 
C 
€ 
4 



Process the /SINGLECHAR switch. 



177662 RNSCHR: BIS 

BR 



#<AF*SCA!AF-*NOW>> RUNOPS ; Enable single char activ 8< non-wait 

RUNSW 



Process the /TRANSPARENT switch. 



177652 RNSTPD: BIS 

BR 



#AF$TPO.. RUNOPS .; Say to run with transparent output 
RUNSW 



Process the /BYPASS <byptjss assign) option 



177642 RNBYA: BIS 

BR 



#AF*BYA, RUNOPS ; Bypass assign commands 
RUNSW 



i Process the /HIGH < h i rih -ef f i c i ency ) switch. 
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HUN command 

59 000140 052767 OOOOOOG 177632 RWSHI: BIS ttAF^HIE.. RUNOPS i Enable h i q h-ef f ic iency mode 

60 000146 00072/, BR RUNSW 

61 i 

62 i Process the /J OP AGE Bunttli 

63 ; 

64 000150 052767 OOOOOOG 177622 RNSIOP: BIS #AF*IOP.. RUiMOPS .; Program is to be run with I/O page access 

65 000106 00072;> BR RUNSW 

66 ; 

67 i Process the /NONIiMTtRACTI VE suiitch 

/.O : 

69 000160 052767 OOOOOOG 177612 RWSNOI: BIS #AF$N01.. RUNOPS ; Run program in non-interactive mode 

70 000166 000716 BR RUNSW 

71 i 

72 i ProrosE the /DEBUG switch 

73 i 

74 000170 105767 OOOOOOG RNDB: TSTB VDBFLG ; Was program debugger genned into the system? 

75 000174 001004 BNE 1* ; Br if yes 

76 000176 FABORT #EM*NPD /No program debugger available 

77 000206 052767 OOOOOOG 177564 1*: BIS tAF^DBG, RUNOPS ; Remember to run program with debugger 
7S 000214 000703 BR RUNSW 

79 ; 

SO } Process the /SCCA switch 

81 ; 

82 0002J6 052767 OOOOOOG 177554 RNSCCA: BIS #AF*CCA, RUNOPS ; Remember to suppress control~C aborts 

83 000224 000677 BR RUNSW 

84 ) 

85 i Process the /NCWINDOW switch 

86 i 

87 000226 052767 OOOOOOG 177544 RNNPW: BIS #AF*NPW, RUNOPS ; Remember to suspend windowing 

88 000234 000673 BR RUNSW 



TSKM2C •--■■ T; 
NUN cofiiiiiijnd 



HUM c oivii'iorrd 
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3 
4 
5 
6 
7 
8 
9 
10 
1 1 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2B 
29 
30 
3:i 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



Accrue name of proaram to run 



Q W V c 3 6 
000242 
000244 
000250 
000254 
000274 
000276 
000304 
000306 
000512 
000326 
000332 
000336 
000342 



000350 
000356 
000362 
000366 
000370 
00037;^ 
000376 



000400 
000402 
000404 
000410 
000414 
000416 
000420 
000422 
000426 



000432 
000440 
000442 
000446 
000450 
000454 



000' 



004767 
103002 
000167 
004767 

103020 
032767 
00 1 402 

000167 

000167 
005067 

116701 
016161 



012767 
005067 
105267 
1 1 2300 
001502 
120027 



005303 
010302 

012704 
020427 
103002 
1 1 2224 
00 i 373 
162704 
010467 



032761 
001403 
012705 
000403 
004767 
010005 



00476/ 



0000000 

001242 
002226 

OOOOOOG 

0000000 

001160 
177442 
OOOOOOG 
OOOOOOG 



000001 
0000 12G 
OOOOOOG 



000040 



0000 120 
000270G 



0000 12G 
0000 lOG 



RUIMNAM: 



1*: 



177474 



2*: 

DOR UN; 
DOR UN X : 



OOOOOOG 



0000 lOG 



CALL 

BCC 

viMP 

CALL 

. LOOKUP 

BCC 

BIT 

BEEQ 

JMP 

FERR 

JMP 

CLR 

MDVB 

MOV 



ACRFN 
1* 

W L— w) C^ A I 

CHKIND 

#XAREA; ttRUNCHN 

DOR UN X 

#AF*PLK> RUNOPS 
r><t 

CMDOFF 
#NOPRG 
CLSEXT 
RUNOPS 
CORUSR, RJ 



ACCRUE THE PROGRAM FILE NAME 

BR IF GOT NAME OK 

BR IF ERROR IN GETTING FILE NAME 

SEE IF WE ARE RUNNING IND 
#FILNAM ; TRY TO OPEN FILE 
; BRANCH IF OPEN OK 

j Was proqram supposed to be locked' 
; NO. GO AHEAD 

i LOCKED FILE NOT FOUND. LOG OFF 
i PRINT ERROR MESSAGE 
.^ GO CLEANUP AND GET NEXT COMMAND 
;N0 RUN OPTION FLAGS 
; GET LINE INDEX # 



LSW2 < R 1 ) , LSW2S ( R 1 ) ; SAVE VALUE OF LSW2 



See if an arcjument wab specified with run command 



MOV #1,CINDAT+10 

CLR CINDAT+12 

INCB RUNARG 

1*: MOVB (R3)+, RO 

BEO R NO ARC 

CMPB RCtt" 

BEQ 1* 

■> Tht-re is an argument fipld. 
; Move argument strinp to chain 
i 

DEC R3 

MOV R3.. R2 

MOV #CINDAT+12. R4 

7$; CMP R4, #C1NDATK'70 

BHIS S* 

MOVB (R2)+. <R4)+ 

BNE 7* 

8*: SUB #CINDAT+i2, fM 

MOV R4, CINDAHIO 



Set 1 to go in 510 chain area 

Set null at run argument string 

Set flap Baying RUN argument string present 

ANY ARGUMENT FIELD PRESENT? 

BR IF NOT 

IGNORE SPACES 



area. 

Point to start of string 

Get pointer to argument string 

Point to where chain data for 512 starts 

Have we hit end of chain data area?" 

Don't go past end of chain data area 

Copy argument to chain data area 

Loop till end reached 

Get # chars in string <including null) 

It will be passed in 510 



Set argument up to be read like it was part of a command file. 

If we have pending commands in thc;> command file buffer, compress 

them to make room for nt»w commands. 

If input is coming from a real command file, we do not need to 

compress since we will reread buffer when we hit end of new command. 



OOOOOOG OOOOOOG 

OOiOOOG 

OOOOOOG 



Is a command file open? 

Br if not 

San entire command file buffer is free 



11*: 



B I T #*CFOPN. LSW4 ( R 1 ) 

BEO 1 1 $ 

MOV #CFBUF+512. .R5 

BR 12* 

CALL CFSQEZ .i Compress info in current command file buffer 

MOV RO, R5 .; Save address of end of free space in buffer 



OOOOOOG 



Push current command file and start new one 



12$: 



:all 



PUSHCF 



; START NEW COMMAND FILE 



TSKM2C — The RUN commarsd 
RUN command 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
6S 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
lOS 



000462 012704 0000000 



000466 

000470 
000472 
000474 
000500 



010302 
1 1 2200 
001416 
1 20027 
001373 



000502 
000510 
000512 
000516 
000520 



000530 
000532 



000534 
000540 
000542 
000544 



000546 
000550 
000552 
000554 
000556 
000560 



001376 
1 1 276''! 



1 1 2324 
00 1 376 



012703 
005304 
1 1 2324 
001376 



020405 
001407 
103002 
105024 
000773 



MOV 



#CFBUF.. R4 



POINT TO COMMAND FILE BUFFER 



000040 



MOV 


R3. R2 


MOVE 


<R2)+. RO 


BEQ 


3« 


CMPB 


RO, #' 


BNE 


2* 



032761 OOOOOOG OOOOOOG 

00 1 007 

105062 177777 



000075 177777 



OOOOOOG 



See if arg string contain;;- a space which separates input file 
5pt?c5 from output file Bpt^cs. 

POINT TO START OF ARG STRING 
GET CHAR FROM STRING 
NO SPACE IN STRING 
SEARCH FOR SPACE 



String contains a t:par.e. Move part of string following space 
to front of command file buffer and insert trailing '='. 

Is IND being started?* 

Br if ues — Don't reverse parameters 
MAKE 1ST PART BE ASCIZ 
4$: MOVE (R2)+, (R4>+ i MOVE STRING TO COMMAND FILE BUFFER 

LOOP TILL DONE 
PUT IN SEPARATING = 

Now move 1st part of string to command file buffer 

3$: MOVE (R3)+, (R4) f- 
BNE 3* 

Put in CR-LF— ■■•C to terminate the line 

POINT TO STRING OF CONTROL CHARS 
STORE OVER TRAILING NULL 
>*: MOVE <R3)+. <R4)-i- i PUT IN TERMINATING CHARS 



BIT 


#*INDRN, LSW5(R1) 


BNE 


3* 


CLRB 


-KR2) 


MOVE 


(R2)+, (R4> + 


BNE 


4* 


MOVE 


#'=, -KR4) 



MOV 


#TRMSTR> R3 


DEC 


R4 


MOVE 


<R3)+. <R4) 


BNE 


5* 



Pad rest of buffer with nulls 



6*: 



CMP 


R4, R5 


BEQ 


13$ 


BHIS 


14$ 


CLRB 


<R4) + 


BR 


6$ 



Reached end of area to fill? 

Br if yes 

Br if buffer overflow 

Null fill the buffer 



14«: FABORT #TOOLNG ; Buf f er overflow 

> Set flags to suppress list ing of argument string being read. 
000570 052761 OOOOOOG OOOOOOG 13*: BIS #*QUIET, LSW4 <R1 ); SUPPRESS LISTING 

F^rogram file is opfii. 



000576 012704 OOOOOOG 
000602 016700 177172 

000606 000400 



R NO ARG: MOV 
MOV 
BR 



#FILNAM, R4 
RUNOPS, RO 
PLOAD 



POINT TO CELL WITH FILE NAME 
Get run option flags for PLOAD 
Load and start execution of program 



€ 
I 



TSKM2C — The RUN r. onimand 
RUN command 
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I 
f 



3 
4 
5 
6 

8 

9 

10 000610 010067 177164 

1 1 
12 
13 

14 000614 01270tj OOOOOOG 

15 000620 012700 000004 

16 000624 01 242 n 

17 000626 077002 

18 000630 01 270 E) OOOOOOG 

19 000634 004767 OOOOOOG 

20 000640 012704 OOOOOOG 



Load a SAV file into memaTij and start its execution. 

I n p u t s : 
RUNCHW channel is now t»ppn to program file. 
R(,i ™ AF*.x.x); run option flags. 
Rl == Job index nurnbtf-. 
R4 = Address of buffer with RAD50 program name. 



PLOAD: MOV RO, RUNOPS 

; Set name of running prugfam 



1*: 



MOV 


#RUNDEV, R5 


MOV 


#4, RO 


MOV 


(R4)+> <Rb)i 


SOB 


RO, 1* 


MOV 


#RUMDEV> Rt> 


CALL 


LDGASN 


MOV 


#RUNDEV.> R4 



; Save initial run option flags 



i Save program name here 

i Save 4 word s 

.iCopy program file spec 

iPoint to file spt-t 

; Do any logical assignment 

; P o i n t to file spec 



TSKM2C 



The R UM c o mmin n d 



U\JH command 
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c 

c 



1 

2 

3 

4 

5 

6 

7 

3 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000644 
000652 
000654 



000666 
000672 



000674 
000700 
000706 
000714 
000720 
000722 
000726 



000742 
000746 
000752 
000754 
000762 
000766 
000770 
000776 
001002 
001004 
001012 
001016 
001020 
001026 
001032 
001034 
001042 
001050 
001054 
001056 
001064 
001066 
001102 
001106 
001114 
001120 
001122 



032761 
00140^] 
052767 



012700 
004767 
103420 



012702 
056262 
046262 
162702 
002367 
004767 
056767 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
177116 



See Or we need to invoke some automatic run amitches for this program. 

See if we should default to single character activation 

RUNASW: BIT #*STSNG, LBW6< Rl ) ; I s single char activation the default? 
BEQ 7* > Br if not 

BIS #AF*SCA. RUMOPS i Remember to enable single char activation 



Bee if the program haii been installed 



7$: 



ivtrm 

CALL 
BCS 



■h +• 



o file spec for program 



INSSRC 
6* 



; See if this program has been installed 

; B r if not 



Apply privilege flags specified for installed program 



OOOOOOC 
OOOOOOC 
OOOOOOC 
000002 

OOOOOOG 
OOOOOOC 



OOOOOOG 
OOOOOOG 



177044 



4$: 



MOV 

BIS 

BIC 

SUB 

BGE 

CALL 

BIS 



#<PVNPW~l>-f«-2, R2 >Get index to last privilege word 

II*PRV+IIBUF<R2),PRIVC0(R2); Set flags specified for program 

II*NPV'+-IIBUr-<R2), PRIVC0<R2)i Clear flags specified for program 

#2* R2 i Get index to next uiord 

4* ; Loop if more to do 

FIXPRV J Do privilege setup 

II$FLG+I IBUF> RUNOPS ; Combine run option switches for program 



Or in attribute flags for enclosing command file 
000734 056767 OOOOOOG 177036 6*: BIS AFCF, RUNDPS ; Combine attributes from command file 

Set some automatic sujitrhe>s for this program 



016702 
032702 
00 1 403 
052761 
032702 
001403 
052761 
032702 
001403 
052761 
032702 
001403 
052761 
032702 
001406 
052761 
012761 
032702 
00 1 4 1 7 
032767 
001010 

000167 
052761 
032702 
001417 
032767 



177032 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

000002 

OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



3*: 



15*: 



16*: 



23*: 



1*; 



OOOOOOG OOOOOOG 



000404 

OOOOOOG 

OOOOOOG 



OOOOOOG 



20*: 
17*: 



OOOOOOG OOOOOOG 



MOV 

e I T 

BEO 

BIS 

BIT 

BEG 

BIS 

BIT 

BEQ 

BIS 

BIT 

BEQ 

BIS 

BIT 

BEO 

BIS 

MOV 

BIT 

BEG 

BIT 

BME 

FERR 

viMP 

BIS 

BIT 

BEO 

B I T 



Get attribute flags for program 

Single character activation wanted? 

Br if not 

Enable single character activation 

Non wait TT input wanted? 

Br if not 

Enable non-wait TT input 

Is high efficiency mode wanted? 

Br if not 

Enable high-efficiency mode 

Transparent output wanted? 

Br if not 

Enable transparent output 

Is non-interactive execution wanted? 

Br if not 

Set non-interactive execution flag 

Set very short interactive time 

Map to I/O page? 

Br if not 

Are we authorized to access I/O page? 

Br if yes 

Not authorized to run this program 

#*RNIOP. LSW9(R1 )i Set flag to cause mapping to I/O page 

#AF*MEM> R2 ;Lock program in memoryT' 

18* ; Br i f not 

#PO*LOK> PRIVCO iAre we authorized to do this? 



RUNOPS, R2 

#AF*SCA, R2 

3* 

#*CHACT, LSW5(H1 ) 

#AF*NOW, R2 

15* 

#*NOWTT, LSW5(R1) 

#AF*HIE, R2 

16* 

#*H1TTY, LSW4<R1> 

#AF*TPO. R2 

23* 

#*TRNSP.. LSW3<R1) 

#AF*N0I,R2 

1* 

#*NOIMr> LSW7<R1 ) 

#2. LITIME<R1) 

#AF*I0P>R2 

17* 

#PO*MEM, PRIVCO 

20* 

#EM*MPV 



TSKM2C — The 
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RUN command 
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i 

c 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 

as 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 



001130 
001132 
001146 
001152 
001160 
001164 
001166 
001174 
001200 
001204 
001210 
001212 
001220 
001222 
001236 
001242 
001250 
001254 
001256 
001264 
001270 
001272 



001300 
001304 
001306 
001314 
001320 
001322 
001330 
001332 
001340 
001342 
001356 
001362 
001370 
001374 
001376 
001402 
001404 
001414 
001422 
001426 
001430 
001436 



001010 

000167 
052761 
032702 
001407 
052761 
004767 
004767 
032702 
00141 7 
032767 
001010 

000167 

052761 
032702 
001403 
052761 
032702 
001403 
052761 



032702 
00 1 403 
052761 
032702 
00 1 423 
132767 
001414 
132767 
001010 

000167 
052761 
032702 
001412 
005767 
001004 

052761 
032702 
001403 
052761 



OOOOOOG 



OOOOOOG 



000340 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



000250 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



000130 

OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 



21«: 
18*: 



19*: 
24*: 



32*: 



BNE 

FERR 

sJMP 

BIS 

BIT 

BEQ 

BIS 

CALL 

CALL 

BIT 

BEQ 

BIT 

BNE 

FERR 

JMP 

BIS 

BIT 

BEQ 

BIS 

BIT 

BEQ 

BIS 



21* 

#EM*NAL 

CLSEXT 

#*RNMLK,LSW9<R1 

#AF*PLK, R2 

22* 

#*PRGLK> LSW&<R1 

CCSPRV 

ABRTCF 

#AF*DBG> R2 

24* 

#PO*DBG, PRIVCO 

19* 

#EM*NAD 

CLSEXT 

#*DEBUG, LSW9<Ri 

#AF*CCA, R2 

32* 

#*SCCA, LSW5<R1) 

#AF*NPW, R2 

30* 

#*N0W1N, LSWIKR 



.; Br if yes 

.: Not authorized to lock program in memoru 

);Set flag to cause program to be locked 

Want to lock program to line? 

Br if not 
)> Remember program is locked to line 

Copy current to set privileges 

Close any open command files 

Want to run program with debugger? 

Br if 7'^ D t 

Are we privileged to use the debugger? 

Br if yes 

Can't use debugger 

); Enable the debugger 

; Disable control— C abort? 

; Br if not 

; Disable control-C abort 

/Suspend process luindotuing? 

i Br if not 
l)j Suspend process windoufing 



Check for startup of spptial programs 



30*: 



25*: 



27*: 
26*: 



31*: 
28*: 



0000006 OOOOOOG 



BIT 


#AF*DUP, 


R2 


BEQ 


25* 




BIS 


#*DUPRN. 


LSW6(R1 


B I T' 


#AF*IND, 


R2 


BEQ 


26* 




BITB 


#IN*ACT, 


INDSTA 


BEQ 


27* 




BITB 


#IN*CNT, 


INDSTA 


BNE 


27* 




FERR 


#INDACT 




JMP 


CLSEXT 




BIS 


#*INDRN, 


LSW5(R1 


BIT 


#AF*UCL> 


R2 


BEQ 


28* 




rsT 


UCLBLK 




BNE 


31* 




FABDRT 


#EM*NUC 




BIS 


#*UCLRN, 


l.SW7<Rl 


BIT 


#AF*SET. 


R2 


BEQ 


2* 




BIS 


#*SETRN, 


LSW9 < R 1 



; Is DUP being started? 
i Br if not 
).: Remember DUP is running 
i Is IND being started? 
■> Br i f not 

; Is IND already active? 
; Br if not 

; Are we continuing its execution? 
; Br if yes 
; Error — IND is already active 



Remember IND is running 

Is TSXUCL being started? 

Br if not 

Are we supporting user-defined commands? 

Br if yes 

Not supporting user-defined commands 

Remember TSXUCL is running 

Is SETUP being started? 

Br if not 

Remember SETUP is running 



TSKM2C -" The 
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RUN command 
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3 
4 
5 
6 
7 
B 
9 
10 
1 1 



Rei3fi in block zero of- Pilt? bpina r'tarted. 



001436 
00 1 474 
001476 
001512 
001520 
001524 
001530 



12 00 

13 00 

14 00 

15 00 

16 00 

17 00 
IS 00 
19 

20 
21 

22 00 

23 00 
24 

25 00 

26 00 

27 00 

28 00 

29 00 

30 00 

31 00 

32 00 

33 00 

34 00 

35 00 

36 00 

37 00 
38 

39 
40 
41 

42 00 

43 00 

44 00 

45 00 

46 00 

47 00 

48 00 
49 

50 
51 
52 



1542 
1550 
1556 
1564 
1572 
1600 
1604 



1610 
1614 

1620 
1624 
.1630 
1634 
1640 
1642 
1646 
1654 
1656 
1664 
1666 
1674 
1676 



1704 
1710 
1716 

1720 
1 724 
1 726 
1732 



1736 
1 744 
1746 



00 

00 
53 00 
54 
55 

56 001754 

57 00 1 760 



i0304D 



105067 
105067 
U6701 
042761 
042761 
042761 
042761 
042761 
042761 
004767 
000167 



116701 
012702 

016203 
042703 
1 6 i 04 
042704 
050304 
010467 
026267 
00 1410 
026227 
:i. 1 004 
026227 
1 1 403 
052767 



016705 
032767 
001005 
020527 
1 1 402 
012705 
010567 



026262 
10140:i 
016262 



016703 

105767 



0000000 
OOOOOOG 
0000000 

OOOOOOG OOOOOOQ 
OOOOOOC OOOOOOG 
OOOOOOC OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOC OOOOOOG 
OOOOOOC OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



000044 

100007 

OOOOOOG 

075570 

OOOOOOG 
000000 

000056 

000050 

OOOOOOG 



OOOOOOG 
000034 
160000 
OOOOOOG 



RNREAD: 



CLSEXT: 



. READW 

BCC 

FERR 

. CLOSE 

CLRB 

CLRB 

MOVE 

SIC 

BIC 

BIC 

BIC 

BIC 

BIC 

CALL 

viMP 



#XAREA, #RUNCHN, #BLKO. #BLKWDS, #0 



.: BRANCH IF READ OK 

CLOSE SAV FILE 

RESET CHAIN FLAG 

No argument string with RUN command 

GET CURRENT vlOB INDEX NUMBER 



SVINBG 

#RDERM 

#RUNCHN 

CINFLG 

RUNARG 

CORUSR, Rl 

#*HITTY, LSW4<R1 ); CLEAN 

#<« INDRN ! *CHACT ! *NOWTT 

#*DUPRN, LSW6<R1 ) 

#*UCLRN ! *NOI NT, LSW7 ( R 1 ) 

#*DEBUG i *RNIOP ! *RNMLK f *SETRN, LSW9<R1 > 

RSTPRV .: Reset job privilege flags 

RDCMD 



OUT MORE RUN FLAGS 

, LSW5<R1); CLEAN OUT FLAGS 



Examine information in block of sav file. 



tVINBG: 



Set 



?3*: 



Set 
to 
1. 



OOOOOOG 
OOOOOOG 

160000 

160000 
OOOOOOG 



000042 
000042 



OOOOOOG 
OOOOOOG 



r/*: 



OOOOOOG 



17*: 



If 
is 



000050 

000050 



bee 
in 



16*: 



MOVE 

MOV 
up new 

MOV 

BIC 

MOV 

BIC 

BIS 

MOV 

CMP 

BEQ 

CMP 

BHI 

CMP 

BLOS 

BIS 

up info 

use. Th 

The amo 

56Kb if 

MOV 

BIT 

BNE 

CMP 

BLOS 

MOV 

MOV 
stack 
equal 

CMP 

BLOS 

MOV 
if amou 
SAV file 

MOV 

rSTB 



1 5 

to 



CORUSR, Rl 

#BLKO, R2 
JSW for job being 

44<R2>, R3 

#--C<077770>> R3 

LJSW<R1.>, R4 

#075570.. R4 

R3, R4 

R4, NEyjSW 

0<R2), R50VIR 

23* 

56<R2.>, #28. 

23* 

50<R2), #160000 

27* 

#VIMAGE, NEWJSW 

rmation about the 

is is constrained 

unt of memory spe 

this is not a vi 

MAXMEM, R5 

ttVIMAGE, NEWv.'SW 

17* 

R5, #160000 

17* 

#160000, R5 

R5, ODTBAS 
allocated above 
top of stnck. 

42 (R2), 50 <r;:') 

16* 

42 (R2), 50<R2) 
nt of memory to a 

MAXMEM, R3 
VSWPFL 



; GET JOB INDEX NUMBER 

i POINT TO BLOCK DATA WE JUST READ IN 

started. 

GET JSW SPECIFIED IN SAV FILE IMAGE 

CLEAR SOME FLAGS 

GET CURRENT JSW 

CLEAR SOME FLAGS IN IT 

MERGE FLAGS 

THIS WILL BE JSW FOR JOB WE ARE STARTING 

WAS JOB LINKED WITH /V SWITCH? 

IF YES THEN SET VIRTUAL-MODE FLAG 

DOES JOB NEED MORE THAN 2eKW? 

BR IF YES 

CHECK ADDRESS ABOVE TOP OF PROGRAM ROOT 

BR IF DOES NOT NEED MORE THAN 28KW 

FORCE VIRTUAL-JOB MODE IF > 28KW NEEDED 
max amount of memory job will be allowed 
by three things: 
cified by the MEMORY command. 
rtual job, (64Kb if it is a virtual job). 
; Get amt of memory specified by MEMORY command 
.; Is this a virtual job? 
j Br if this is a virtual job 
; Constrain to 56Kb if not virtual job 



;This is base address of debugger 
top of program then say top of program 

IS STACK ALLOCATED ABOVE PROGRAM TOP? 
BR IF NOT 

SAY TOP OF PROGRAM = STACK TOP 
llocate for program was specified 

i GET DEFAULT TOP OF MEMORY ADDRESS 
i IS THIS A NON-SWAPPING SYSTEM? 
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58 


00 1 764 


001442 






BEQ 


13* 




59 


001766 


032767 


OOOOOOG 


OOOOOOG 


BIT 


#VIHAGE, NEWJSW 




60 


001774 


00 loot' 






BNE 


26* 




61 


001776 


020327 


160000 




CMP 


R 3, #160000 




62 


002002 


1 1 402 






BLOS 


26* 




63 


002004 


012703 


160000 




MOV 


#160000, R3 




64 


002010 


016200 


000056 


26*: 


MOV 


56<R2), RO 




65 


002014 


00 1 406 






BEQ 


7* 




66 


002016 


072027 


000013 




ASH 


#11. ,R0 




67 


002022 


00 1 002 






BNE 


21* 




6S 


002024 


1 27''00 


1 77774 




MOV 


#177774; RC> 




69 


002030 


010003 




21*: 


MOV 


RO. R3 




70 


002032 


016200 


000050 


7*: 


MOV 


50(R2)>R0 




71 


002036 


062700 


000002 




ADD 


#2, RO 




72 


002042 


00 loop 






BNE 


22* 




73 


002044 


012700 


177774 




MOV 


#177774, RO 




74 


002050 


020300 




22*: 


CMP 


R3, RO 




75 


002052 


103001 






BHIS 


a* 




76 


002054 


010003 






MOV 


RO, R3 




77 


002056 


016705 


0000000 


8*: 


MOV 


MX J ADR, R5 




78 


002062 


010367 


OOOOOOG 




MOV 


R3, ODTBAS 




79 


002066 


020305 






CMP 


R3, R5 




80 


002070 


101123 






BHI 


TOOBIG 




81 


002072 


032767 


OOOOOOG 


OOOOOOG 13*: 


BIT 


#VIMAGE, NEWvJSW 




82 


002100 


OOIOOS 






BNE 


25* 




83 


002102 


020327 


160000 




CMP 


R3, #160000 




84 


002106 


10140P 






BIOS 


25* 




85 


002110 


012703 


160000 




MOV 


#160000, R3 




86 


002114 


010367 


OOOOOOG 


25*: 


MOV 


R3, PRGSIZ 




87 








; Chec 


k top 


o-F program address. 




88 


002120 


016203 


000050 




MOV 


50<R2),R3 




89 


002124 


020327 


001000 




CMP 


R 3. #1000 




90 


002130 


103512 






BLO 


ILLSAV 




91 


002132 


010367 


OOOOOOG 




MOV 


R3, PRGTOP 




92 


002136 


016700 


OOOOOOG 




MOV 


ODTBAS, RO 




93 


002142 


020300 






CMP 


R3, RO 




94 


002144 


103075 






BHIS 


TOOBIG 




95 








; Chec 


k prog 


ram's stack addi-est 




96 


002146 


016203 


000042 




MOV 


42<R2),R3 




97 


002152 


001407 






BEQ 


2* 




98 


002154 


020367 


OOOOOOG 




CMP 


R3, PRGTOP 




99 


002160 


101076 






BHI 


ILLSAV 




100 


002162 


032703 


000001 




BIT 


#1, R3 




101 


002166 


001073 






BNE 


ILLSAV 




102 


002170 


000402 






BR 


3* 




103 


002172 


012703 


001000 


2*: 


MOV 


#1000, R3 




104 


002176 


010367 


OOOOOOG 


3*: 


MOV 


R3, USRSTK 




105 








> Chec 


k program startinq addrei 




106 


002202 


016203 


000040 




MOV 


40(R2>.R3 




107 


002206 


020327 


000400 




CMP 


R3, #400 




108 


002212 


103406 






BLO 


4* 




109 


002214 


032703 


000001 




BIT 


#1, R3 




110 


002220 


001003 






BNE 


4* 




111 


002222 


020367 


OOOOOOG 




CMP 


R3, PRGTOP 




112 


002226 


101410 






BLOS 


5* 




113 


002230 






4*: 


FERR 


#NOSTRT 




114 


002244 


000167 


177242 




JMP 


CLSEXT 



S~l 



BR IF YES 

IS THIS A VIRTUAL IMAGE? 

BR IF YES 

CONSTRAIN TO 56KB IF NOT VIRTUAL 



WAS MEMORY ALLOCATION FOR PROGRAM SPECIFIED? 

BR IF NOT 

CONVERT # KW TO BYTE ADDRESS 

BR IF NOT 64KB 

SET 64KE ADDRESS TOP 

SET AS ADDRESS OF TOP OF PROGRAM SPACE 

GET ADDRESS OF TOP OF STATIC PROGRAM AREA 

BR IF DIDN'T OVERFLOW 64KB 

SET SIZE FOR 64KB 

IS ALLOCATED SIZE AT LEAST THIS BIG? 

BR IF YES 

USE ENOUGH SPACE FOR STATIC PROGRAM SIZE 

GET MAX ADDRESS JOB CAN POSSIBLY USE 

START ODT ABOVE TOP OF PROGRAM AREA 

ROOM FOR PROGRAM TO RUN? 

BR IF NOT ENOUGH MEMORY 

IS THIS A VIRTUAL JOB? 

BR IF YES 

IS NOT, THEN CONSTRAIN SIZE TO 56KB 



; ADDRESS ABOVE TOP OF PROGRAM AREA 

GET TOP-OF-PROGRAM ADDRESS FOR SAV FILE 

MAKE SURE IT'S NOT TOO SMALL 

BR IF INVALID 

SAVE TOP ADDRESS OF PROGRAM 

GET TOP ADDRESS WE MAY GO UP TO 

IS PROGRAM TOO BIG? 

BR IF YES 

GET SPECIFIED STARTING STACK ADDRESS 

BR IF NO INITIAL STACK ADDRESS SPECIFIED 

CAN'T BE ABOVE TOP OF PROGRAM 

; CAN'T BE ODD 



; DEFAULT TO 1000 FOR STACK IF NONE SPECIFIED 
; SET AS STARTUP STACK ADDRESS 

s. 

.i GET PROGRAM START ADDRESS 

; MAKE SURE IT'S VALID 

; BR IF TOO LOW 

.:MAKE: SURE IT'S NOT ODD 

J MAKE SURE IT IS IN MEMORY RANGE FOR PROGRAM 

i INVALID START ADDRESS 



4 
I 



TSKM2C -- The RUN command 
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115 
116 
117 
US 
119 
120 
121 
122 
123 
124 

126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 



002250 010367 OOOOOOG 
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5$; MOV R3, USTART ; SAVE PROGRAM STARTING ADDRESS 
Set up name of program that is being started 



002254 
002260 
002266 



nnooi'ji. 



012704 
016461 
016461 



n 1 A7A7 



OOOOOOG 

000002 

000004 



OOOOOOG 
OOOOOOG 



1 T^ison nnnnrinfi 

•«• ^ ha- ttt it* te. »H' la/^ h.^ t_r kW IW kf 



MOV #RUNDEV. R4 ; POINT TO PROGRAM NAME STORAGE CELLS 
MOV 2(R4), LPRGKRl) i SAVE NAME OF RUNNING PROGRAM 
MOV 4(R4), LPRG2<R1) 

Set up status flags for program being started 

RUNOPS, RUNFLG ; Set status flags for running program 



ivtrnj 



002302 



002310 



002330 



002332 
002336 



002340 
002354 



002356 
002372 



005761 
001003 
005767 
001406 
012700 
012760 
10437r> 



012700 
104375 



000000<:) 

OOOOOOG 

OOOOOOG 
OOOOOOG 



00000^ 



OOOOOOG 



000406 



Broadcast status message to any monitoring jobs telling them that 
we ore starting execution of a job. 



>9*: 



TST LM0NHD<R1) 

J3NE 29* 

fST SMQNHD 

BEQ 28* 

MOV #GENMON, RO 

MOV #JS*RUN, 2(R0) 

EMT 375 



Is our job being monitored? 

Br if it is 

Anyone monitoring ell jobs? 

Br if not 

Point to EMT argument block 

Set status code 

Broadcast status message 



Enter TSX to read in SAV file and transfer control to it. 



?8*: MOV #RUNEMT, RO 
EMT 375 



J EMT TO START PROGRAM EXECUTION 
; START SAV FILE 



PROGRAM IS TOO BIG TO FI'I IN MEMORY. 



TDOBIG: FERR 
BR 



#OVRCOR 
CLEJMP 



BAD SAV FILE FORMAT 



000167 177114 



ILLSAV: FERR 
CLEJMP: sMP 



#BADSAV 
CLSEXT 
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1 

2 

3 

4 002376 012704 0000000 

5 

6 

7 

8 OOS 



9 00 

10 00 
1 1 

X a. 

12 
13 
14 
15 



^402 

=^404 

^410 

r\noA 1 j1 



00 
00 
00 
00 



?416 

?420 

2422 

^426 



010405 
012703 
012700 
022325 
001004 
077003 
004767 
000421 



0000000 
000004 



0000000 



PROCESS A . CHAIN REQUFGT 

KDDCIN: MOV tCINDAT, R4 ; POINT TO CELL WITH PROGRAM NAME 

If chain is being done to SY: LD. SYS, simply do a SET LD CLEAN 

POINT TO PROGRAM NAME 
POINT TO "SY: LD. SYS" 
COMPARE 4 WORDS 
31; : CMP < R 3 ) + , ( R 5 ) + i C OMP AR E P R OGR AM NAMES 

BR IF NOT CHAINING TO LD HANDLER 



MOV 


R4, R5 


MOV 


#LDNAM, R3 


MOV 


#4>R0 


CMP 




BNE 


2* 


SOB 


RO, 3* 


CALL 


LDCLEN 


BR 


4* 



DO "SET LD CLEAN" OPERATION 
DON'T DO THE CHAIN 



17 
18 
19 

20 
21 
22 
23 
24 
25 
26 



Look up SAV file Mte are chaining to 



2430 
^446 
2450 
2452 
•':>456 



00 
00 
00 
00 
00 
00 
002476 



2472 



103403 
005000 
000167 



2$: 



. LOOKUP #XAREA, #RUNCHN, R4 



1 76 1 32 



105067 OOOOOOG 
000167 OOOOOOG 





BCS 


1* 




CLR 


RO 




JMP 


PLOAD 


1$: 


Ff^RR 


#NOPRG 


4*: 


CLRB 


CINFLG 




^JMP 


NOCIN 



; BRANCH IF ERROR 

; Say no RUN options 

i LOAD AND RUN PROGRAM 



4 

I 



TSKM2C - 


— The RUM command 


CHKIND - 
1 


— Force 


IND to 


run from 


2 
3 
4 








5 








6 








7 








8 








9 


002502 


026727 


0000020 


10 


002510 


001021 




11 


002512 


005767 


0000040 


12 


002516 


001016 




13 








14 


002520 


005767 


0000000 


15 


002524 


OOIOOD 




16 


002526 


005726 




17 


002530 






18 








19 


002540 


016767 


OOOOOOG 


20 


002546 


012767 


073376 


21 


002554 


000207 




22 








23 




000001 




Errors c 


ietected 
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boot device 



SBTTL CHKIND — horte IND to run from boot device 



; Inputs: FILNAM has dev: fi 1 spc . ex t of program about to be run 

i 

i Outputs: If program is IND> dev: in FILNAM changed to boot device 

; and . ext in FILNAM changed to . SAV 



03r>164 CHKIND: CMP 

BNE 



FILNAM+2, #'^RIND 
9« 

TCT CTI MAMJ.A 

BNE 9* 
Program about to be run i i> IND 



IS PROGRAM IND? 
RETURN IF NOT 
AND ONLY 3 CHARS? 
RETURN IF NOT 



WAS IND AVAILABLE DURING START-UP? 
BR IF SO 

THROW AWAY RETURN POINTER IF NOT 
AND ABORT COMMAND 



TST INDSAV 

BNE 1 * 

TST < SP ) + 

FABDRT #NaiND 

i Ensure that IND is always run from "real" SY 

OOOOOOG 1$: MOV SYNAME. FILNAM ; ALWAYS RUN FROM BOOT DEVICE 

000006G MOV #-RSAV, FILNAM-i-6 i USE IND. SAV 

9$: RETURN 

t 

. END 



■K-tus- Assembler 5tatistir:<> 



Work file readii 
Work file writes 
Size of work file 
Size of core pool 
Operating system 







984B Words < 39 Pages) 

17720 Words ( 70 Pages) 

RT--n 



Elapsed time: 00:00:16.22 

DK: TSKM2C. LP: TSKM2C=DK: TSKM2C. MAC/C/N: SYM 





TSKM2C - 


- The RUN 


command 


MACRO 


V05. 04 


Monday 21- 


-Dec -87 12 


57 pBne S-1 










Cross re 


ference table (CREF 


V05. 04) 


















*CFOPN 


1-30 


5-4 S 




















*CHACT 


1-48 


7-34 


8-13 


















*DEBUe 


1-25 


7-73 


8-16 


















*DUPRN 


1-39 


7-B5 


8-14 


















*HITTY 


1-25 


7-40 


8-12 


















*INDRN 


1-25 


5-72 


7-94 


8-13 
















*NOINT 


1-25 


7-46 


8-15 


















*NOWIN 


1-39 


7-79 




















*NOWTT 


1-26 


7-37 


8-13 


















$PReLK 


1-26 


7-64 




















*QUIET 


1-31 


5-102 




















*RNIOP 


1-26 


7-54 


8-16 


















*RNriLK 


1-26 


7-61 


8-16 


















-^SCCA 


1-47 


7-76 




















*SETRN 


1-41 


7-103 


8-16 


















fSTBNG 


1-33 


7-5 




















*TRNSP 


1-26 


7-43 


8-11 


















*UCLRN 


1-26 


7-100 


8-15 


















... VI 


5-8 


5-8 


5-8 


8-4 


8-4 


8-7 


8-7 


9-19 


9-19 


9-19 




. . . V2 


5-8 
9-19# 


5-8 
9-19# 


5-8# 


5~8# 


8-4 


8-4 


8-4# 


S-4# 


8-7 


e-7# 




ABRTCF 


1-38 


7-66 




















ACRFN 


1 -30 


5-4 




















AF^^BYA 


1-27 


4-54 




















AF*CCA 
AF*DBG 
AF*DUP 


1-27 
1-27 
1-27 


4-32 
4-77 
7-83 


7-74 
7-67 


















AF*HIE 
AF*IND 
AF*IOP 


1-27 
1-28 
1-28 


4-59 
7-06 
4-64 


7-38 
7-48 


















AF*MEM 

AF^NOI 

AFfNOW 

AF*NPW 

AF*PLK 

AF$SCA 

AF*SET 

AF$TPO 

AF*UCL 

AFCF 

BADSAV 

BLKO 

BLKWDS 

CCSPRV 

CFBUF 

CFSQEZ 

CHKIND 


1-28 
1-2S 
1-28 
1-32 
1-29 
1-29 
1-29 
1-29 
1-29 
1-48 
1-45 
1 -47 
1-47 
1-38 
1-30 
1-30 
5-7 


4-39 
4-69 
4-44 

4-B7 
4-34 
4-44 
7- .101 
4-49 
7-95 
7-r'7 
8-150 
8-4 
8-4 
7-65 
5-50 
5-52 
10-9# 


7-55 
7-44 
7-35 
7-77 
5-10 
7-7 

7-41 

8-23 
5-58 


7-62 
7-32 
















CINDAT 


1-33 


5-21 *■ 


5-22<J 


5-34 


5-35 


5-39 


5-40* 


9-4 








CINFLG 


1-41 


S-Bif 


9-24 ^5- 


















CLEJMP 


S-146 


8-1 51 # 




















CLSEXT 


5-6 


5-14 


7-53 


7-60 


7-72 


7-93 


8 -7# 


8-114 


8-151 






CMDOFF 


1-24 


5-12 




















CHDRSY 


1-20 


4--}Pf> 




















CMDRUN 


1-20 


4-7# 




















CORUSR 


1-32 


4-29 


5-16 


8-10 


8"-22 














CVTTAB 


1-41 


4-16 



















9-19 9-19 
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Cross reference table (CREF V05. 04 ) 

4-7 
5- J 5# 
5~i64f 
7-t>2 
7-71 
7-S9 
4-76 
7-99 

5-8 5-106 10-9 10-11 10-19tf- 10-20^^ 

7-22 

4-28 4-76 5-98 7-99 10-17 

5-13 7-52 7-59 7-71 7-92 B -6 8-113 8-145 8-150 9-23 

8-134 
7-23 
7-19 
7-18 

7-18 7-19 7-23 
8-99 8-101 8-1 50# 
7~B8 
7-90 
7-92 
10-14 
7-OB 7-90 



DKSAV 


1 


-32 


DOR UN 


1- 


-20 


DORUNX 


5 


-9 


EM^MPV 




-37 


EM* NAD 




-38 


EM*NAL 




-37 


EM«NPD 




-32 


EM*NUC 




-40 


FILNAM 




-47 


FIXPRV 




-48 


FKILL 




-46 


FPRINT 




-24 


GENMON 




-45 


II*FLG 




-31 


II*NPV 




-31 


II*PRV 




-31 


IIBUF 




-35 


ILLSAV 


8- 


-90 


IN* ACT 




-39 


IN*CNT 




-40 


INDACT 




-40 


INDSAV 




-24 


INDSTA 




-39 


INSSRC 




-34 


INVOPT 




-46 


JS*RUN 


1- 


-35 


KDOCIN 




-20 


L 


3- 


-6 






-12 


LDCLEN 




-45 


LDNAM 


1- 


-45 


LITIME 


1" 


-36 


LJSW 


1- 


-42 


LMONHD 


1- 


-44 


LOGASN 


1- 


-33 


LPRGl 


1- 


-44 


LPRG2 




-44 


LSWll 




-39 


LSW2 




-36 


LSW2S 


1- 


-36 


LSW3 


1- 


-48 


LSW4 


1- 


-28 


LSW5 


1- 


-47 


LSW6 


1- 


-33 


LSW7 


1- 


-36 


LSW9 


1- 


-41 


MAXMEM 


1- 


-42 


MXJADR 


1- 


-48 


NARGS 


3- 


-5# 




3- 


-11 




3- 


-17 


NEWJSW 


1- 


-42 


NOCIN 


1- 


-46 


NO I NO 


1- 


-24 


NOPRG 


1" 


-24 


NOSTRT 


1- 


-44 



( 
t 
I 
I 



7-12 

4-20 

8-135 

9-4 # 

3-6# 3-7 3-7# 3-8 3~8# 3-9 3-9# 3-10 3-10# 3-11 3-1 1# < 

3-12# 3-13 3~13# 3-14 3~14# 3-15 3-15« 3-16 3-16# 3-17 3-17# 



9- 1 4 

9-9 

7--47-ti- 

8-27 

8-130 

6-19 

S-120S- 

8-121*- 

7-79t^ 

5-17 

5-17-n- 

7-43-»i- 8-1 HJ 

5-48 5-102W 7-40* 8 12* 

5-72 7-34* 7-37* 7-64* 7-76* 7-94* 8-13* 

7-5 7-85* 8-14* 

7-46* 7-100* 8-15* 

7-54* 7-61* 7-73* 7-103* 8-16* 

8-42 8-56 

8-77 

3-6 3-6 3-7 3-7 3-8 3-8 3-9 3~9 3-10 3-10 3-11 

3-12 3-12 3-13 3-13 3-14 3-14 3-15 3-15 3-16 3-16 3-17 

8-30* 8-37* 8-43 B-59 8-81 

9-25 
10-17 
5 -.13 9-23 
8-113 



€ 
€ 
4 
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' Cross re 


■Perence table (CREF 


V05. 04) 
















i DDTBAS 


1-43 


8-48* 


8-78* 


8 "92 














OVRCOR 


1-45 


8-145 


















PO«DBG 


1-25 


1-38 


7-69 
















< PO*L0K 


1-37 


7-t>7 


















PO*MEM 


1-36 


7-50 


















PLDAD 


1-20 


5-108 


6-1 0*S 


9-22 














< PRGSIZ 


1-43 


8-B6-15- 


















PRGTOP 


1-43 


8-9 H* 


8-98 


8-111 














PRIVCO 


1-37 


7-1 8-»^ 


7-19* 


7-50 


7-57 


7-69 










i PUSHCF 


1-30 




















PVNPW 


1-34 


7-. 17 


















R50VIR 


1-42 


8-31 


















i RDCMD 


1~4S 


8- IS 


















RDERM 


1-41 


8-6 


















RNBYA 


3-6 


4-54# 


















< RNDB 


3-7 


3-14 


4-74*1 
















RNNPW 


3-13 


4-87# 


















RNOARG 


5-25 


5-106# 


















< RNREAD 


8-4# 




















RNSCCA 


3-16 


4-82# 


















RNSCHR 


3-15 


4-4 4 # 


















i RNSHI 


3-8 


4-Ii9# 


















RNSIOP 


3-9 


4-64# 


















RNSLK 


3-10 


4~34# 


















< RNSMLK 


3-11 


4-39# 


















RNSNOI 


3-12 


4-69# 


















RNSTPO 


3-17 


4-4 9# 


















t RSTPRV 


1-42 


8-17 


















RUNARG 


1-34 


5-P3«- 


8-9* 
















RUNASW 


7-5# 




















< RUNCHN 


1-34 


5-8 


5-8 


8-4 


8-4 


8-7 


8-7 


9-19 


9- 


-19 


RUNDEV 


1-34 


6-14 


6-18 


6-20 


7-11 


8-119 










RUNEMT 


1-35 


8-140 


















< RUNFLG 


1-34 


8-125* 


















RUNHD 


1-35 


3~5# 


4-25 
















RUNNAM 


1-20 


4-23 


5-4# 
















i RUNOPS 


l-50# 


4-17* 


4-34* 


4-39* 


4-44* 


4-49* 


4-54* 


4-59* 


4- 


-64* 




4-87-«- 


5-10 


5-15* 


5-107 


6-10* 


7-7* 


7-23* 


7-27* 


7- 


-31 


RUNPRS 


4-8 


4~16# 


















i RUNSW 


4-21# 


4-35 


4-40 


4-45 


4-50 


4-55 


4-60 


4-65 


4- 


-70 


SEARCH 


1-46 


4-26 


















SKPSPC 


1-46 


4-21 


















< SMONHD 


1-45 


8-132 


















SVINBG 


8-5 


S~22# 


















SYNAME 


1-24 


10-19 


















< SYSAV 


1-32 


4~i;? 


















TODBIG 


8-80 


8-94 


S~145« 
















TOOLNG 


1-30 


5~9B 


















i TRMSTR 


1-27 


1-29 


5-86 
















TSKM2C 


1-5*! 




















UCLBLK 


1-40 


7-97 


















< USRSTK 


1-44 


8-104* 


















USTART 


1-44 


e-llb* 


















VDBFLG 


1-33 


4-74 


















< VIMAGE 


1-42 


8-37 


8-43 


8-59 


8-81 












VSWPFL 


1-43 


s-»;.>7 


















XAREA 


1 -47 


5-8 


S-4 


9 19 















4-69* 4-77« 4-82* 

8-125 

4-78 4-83 4-88 
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€ 



. . , CHI 


5-8 


. . . CM2 


5-8 


. . . CM3 


8-7 


. . . CMS 


5-8 


. . . CM7 


8-4 


. CLOSE 


1-17# 


. LOOKU 


1-17# 


. READW 


1~17# 


CMDDEF 


2-47# 




3~17 


FABORT 


2-15# 


FERR 


2-4# 


FWARN 


2-23# 


TBLDEF 


2-35# 


TBLEND 


2~6i# 



8-4 
5-B 

8-4 



8- 


■7 


5- 


-B 


8- 


•4 


3- 


-6 


4- 


-28 


5- 


-13 


3- 


■'5 


3- 


- .1 & 



9-19 
8-4 

9-19 



9-19 
3-7 

4-76 

7-52 



8-4 



3-8 

5-98 
7-59 



8-4 



3-9 

7-99 
7-71 



8-4 



3-10 



10-17 

7-92 



9-19 



3-11 



B -6 



9-19 



3-12 



a-113 



3-13 



8-145 



3-14 



8-150 



3-15 



9-23 



3-16 



